home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / banging_the_metal / qdos / qdos4amiga3.lha / JanToFlp_BAS < prev    next >
Text File  |  1998-02-12  |  378b  |  14 lines
  1. 10 WDIR \'ram1_tmp_dir','jan1_'
  2. 20 OPEN_IN #3,'ram1_tmp_dir'
  3. 30 REPeat Cpy
  4. 35    IF EOF(#3) THEN EXIT Cpy
  5. 40    INPUT #3,a$
  6. 45    IF a$="" THEN NEXT Cpy
  7. 47    IF "--DIR--" INSTR a$ THEN NEXT Cpy
  8. 50    n='.' INSTR a$
  9. 60    IF n>0 THEN a$(n)='_'
  10. 70    PRINT 'copy jan1_';a$;' to flp1_';a$
  11. 80    COPY 'jan1_'&a$ TO 'flp1_'&a$
  12. 90 END REPeat Cpy
  13. 100 CLOSE #3 : DELETE 'ram1_tmp_dir'
  14.